home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / comp. concept.c3 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  12KB  |  359 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143]---GENERAL INPUT ROUTINE----
  8. 15 :
  9. 25 :
  10. 30 :
  11. 35 [143]-----INPUT SECTION-----
  12. 40 :  [151]UO,0:UR$[178]"":UI$[178]""
  13. 42 :  [139] UL[178]0[167]UL[178]80
  14. 45 [153]"  CMDCMD";:[151]UC,0
  15. 50 :  [161]UI$:[139]UI$[178]""[167]50
  16. 55 :  [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  17. 60 :  [139]UI$[178][199](20)[167]105
  18. 62 :  [139] [195](UR$)[178][177]UL [167]50
  19. 65 :  [141]120:[143] CHECK FOR VALID CHARACTER
  20. 70 :  UR$[178]UR$[170]UI$
  21. 75 :  [153]UI$;
  22. 77 :  [139] [195](UR$)[177]1 [167] UR$[178]""
  23. 80 :  [137]50
  24. 85 [143]-----CHECK FOR HELP REQUEST-----
  25. 86 :  [139]UR$[178]UX$[167] [153]"CMD CMD";
  26. 90 :  [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  27. 95 :  [139]UF[178]1[167][141]240
  28. 100 : UF[178]0:[153]:[142]
  29. 102 [143]-----CHECK DELETE-----
  30. 105 : [139][195](UR$)[179]1[167]50
  31. 106 :
  32. 107 : [139][195](UR$)[178]1 [167] [153]"CMD  CMDCMD";
  33. 110 : UR$[178][200](UR$,[195](UR$)[171]1)
  34. 115 : [153]"CMD  CMDCMD";:[137]50
  35. 120 [143]-----CHECK FOR VALID CHARACTERS-----
  36. 125 :  [139][195](US$)[178]0[167]150
  37. 130 :  [129]US[178]1[164][195](US$)
  38. 135 :    [139]UI$[178][202](US$,US,1)[167][142]
  39. 140 :  [130]
  40. 145 :  UI$[178]"":[142]
  41. 150 [143]-----STANDARD INPUT-----
  42. 152 :  [139][198](UI$)[178]46[167] [142]
  43. 155 :  [139]UI$[178][199](32)[167] [142]
  44. 160 :  [139][198](UI$)[179]48 [176] [198](UI$)[177]57[167]170
  45. 165 :  [142]
  46. 170 :  [139][198](UI$)[179]65 [176] [198](UI$)[177]90[167]180
  47. 175 :  [142]
  48. 180 :  [139][198](UI$)[179]193 [176] [198](UI$)[177]218[167]UI$[178]"":[142]
  49. 185 :  [139][194](UT)[178]12[176][194](UT)[178]21[167]UI$[178][199]([198](UI$)[171]128):[142]
  50. 187 :  [142]
  51. 190 :  UI$[178]"":[142]
  52. 195 :  UF[178]1:[143]-----HELP ROUTINE EXIT-----
  53. 197 :  [141]250
  54. 200 :  [141]245
  55. 205 :  [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  56. 210 :  UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  57. 215 :  UZ[178]1
  58. 216 :  [137]300
  59. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  60. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  61. 219 [153]"LOAD";
  62. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164]UB[170]919
  63. 225 :  [151]UQ,UQ%(UQ[171]UB):[130]
  64. 230 :  [151]U1,U1%
  65. 232 :  [151]U2,U2%
  66. 233 :  [151]U4,U4%
  67. 234 :  [151]U3,U3%[171]1
  68. 235 :  [137]35
  69. 240 :  UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  70. 245 :  [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  71. 250 :  U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  72. 251 UJ$[178]US$:UJ[178]UL
  73. 252 :  UJ$[178]US$:UK$[178]UG$:UJ[178]UP:UK[178]UL
  74. 255 :  [142]
  75. 300 [143]-----MENU-----
  76. 301 :
  77. 302 :  [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  78. 303 :
  79. 305 :  [153]"LOAD                MENU"
  80. 310 :  [153]" --------------------------------------"
  81. 315 :  [153]"       1.   COMPUTER CONCEPTS"
  82. 320 :  [153]"       2.   STUDENT INSTRUCTIONS"
  83. 325 :  [153]"       3.   TEACHER INSTRUCTIONS"
  84. 335 :  [153]"       4.   QUIT"
  85. 340 :  [153]" --------------------------------------"
  86. 345 :  [153]"       PRESS A NUMBER KEY (1-4) ";
  87. 350 :  UL[178]1:US$[178]"1234":[141]35:[143]---INPUT ROUTINE---
  88. 351 :  [139][195](UR$)[177]1[167]300
  89. 352 :  US$[178]""
  90. 355 :  [145][197](UR$)[141]1000,400,500,396
  91. 360 :  [137]300
  92. 395 [143]-----RE-ENABLE STOP KEY AND END-----
  93. 396 :  [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  94. 397 :  [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  95. 398 :  [153]"CONTLOAD":[128]
  96. 399 :  [141]875:[142]
  97. 400 [143]-----STUDENT INSTRUCTIONS-----
  98. 405 :  [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  99. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  100. 420 :  [153]"      (null)HIS LESSON GIVES DEFINITIONS   "
  101. 421 :  [153]"   OF (null)ATN(null), (null)(null)(null) AND A (null)ATN(null)RIGHT$ATNPEEK(null)VAL.  RIGHT$T "
  102. 422 :  [153]"   ILLUSTRATES HOW VARIABLES ARE STORED"
  103. 423 :  [153]"   AND MANIPULATED IN MEMORY THROUGH"
  104. 424 :  [153]"   BASIC STATEMENTS."
  105. 425 :  [153]"      (null)EMEMBER TO HIT <RETURN> AFTER"
  106. 426 :  [153]"   TYPING YOUR ANSWER.  (null)HIS TELLS THE "
  107. 427 :  [153]"   COMPUTER TO ACCEPT WHAT YOU ENTERED."
  108. 428 :
  109. 429 :
  110. 440 :
  111. 485 :  [141]835
  112. 490 :  [139]UZ[178]1[167][158]UP%:[137]217
  113. 499 :  [142]
  114. 500 [143]-----TEACHER INSTRUCTIONS-----
  115. 501 :  [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  116. 502 :  UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
  117. 503 :  [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  118. 504 :  [153]"   THIS PROGRAM IS IN THE PUBLIC"
  119. 505 :  [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  120. 506 :  [153]"   PLEASE CONTACT:"
  121. 507 :  [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  122. 508 :  [153]"          3370 (null)HARMACY ATNVE.
  123. 509 :  PRINT"          [193]GINCOURT, [207]NTARIO"
  124. 510 :  PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  125. 511 :  PRINT"          (416) 499-4292"
  126. 512 UP=1:GOSUB 835:GOSUB 850:
  127. 513 PRINT"     [208]ROGRAM [206]AME: [195]OMPUTER [195]ONCEPTS"
  128. 514 PRINT"     [215]RITTEN [194]Y  : [212]. [215]INNING"
  129. 515 PRINT"     [213]PGRADED [194]Y : [193]RMAND [193]IELLO"
  130. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  131. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)CLOSECLOSECLOSECLOSECLOSE
  132. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  133. 523 :  [141] 835
  134. 529 :  UP[178]2:[141]850
  135. 541 :  [153]"      (null)HIS LESSON GIVES DEFINITIONS   "
  136. 542 :  [153]"   OF (null)ATN(null), (null)(null)(null) AND A (null)ATN(null)RIGHT$ATNPEEK(null)VAL.  RIGHT$T "
  137. 543 :  [153]"   ILLUSTRATES HOW VARIABLES ARE STORED"
  138. 544 :  [153]"   AND MANIPULATED IN MEMORY THROUGH"
  139. 545 :  [153]"   BASIC STATEMENTS."
  140. 546 :  [153]"                                    "
  141. 547 :  [153]"        (null)HIS LESSON IS FOR BEGINNING"
  142. 548 :  [153]"   PROGRAMMERS.   "
  143. 580 :  [141]835
  144. 590 :  [139]UZ[178]1[167][158]UP%:[137]217
  145. 599 :  [142]
  146. 600 [143]-----PROGRAM MODIFICATION INST-----
  147. 601 :  [153]"LOAD":[151]UT,UL%
  148. 605 :  UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  149. 660 :  [141]835
  150. 690 :  [139]UZ[178]1[167][158]UP%:[137]217
  151. 699 :  [142]
  152. 700 [143]-----TO USE 8032 LOAD CBM4032-----
  153. 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  
  154. 720 PRINT"      LOAD THE 'CBM 4032' PROGRAM"
  155. 730 :  REM SYSUU+71
  156. 740 :  END
  157. 797 REM ** TO USE 8032 LOAD CBM4032 **
  158. 798 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  159. 799 END
  160. 800 REM ** T I T L E   P A G E **
  161. 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  162. 804 FORI=1TO38:PRINT"[166][146]";:NEXT
  163. 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  164. 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  165. 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  166. 812 PRINT"[169]  [146]
  167. 814 [153]" WAIT   WAITSTEP
  168. 816 PRINT" [146]  [163][223]
  169. 818 [153]"(null)  WAIT
  170. 820 PRINT"C O M M O D O R E
  171. 822 [153]"EDUCATIONAL
  172. 824 PRINT"SOFTWARE
  173. 826 [143] ** COMMODORE LOGO **
  174. 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
  175. 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
  176. 830 :  T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
  177. 832 :  [137]300
  178. 835 [143]-----SPACE BAR PRESS-----
  179. 840 :  [153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  180. 844 :  [161]UI$:[139]UI$[179][177]" "[167]844
  181. 846 :  [142]
  182. 850 [143]-----PAGE DESIGN ROUTINE-----
  183. 852 :  UP[178]UP[170]1
  184. 855 :  [153]"LOAD"[200](UT$[170]UP$,21);[200](UG$[170]UP$,14);UP
  185. 860 :  [153]" --------------------------------------"
  186. 865 :  [153][200](UD$,24);[200](UP$,6);"HELP - PRESS   H <RETURN>"
  187. 870 :  [153]"":[142]
  188. 875 [143]-----PLEASE WAIT REMARK-----
  189. 880 :  [153][200](UD$,23);"           ONE MOMENT PLEASE...     "
  190. 885 :  [142]
  191. 900 [143]-----SET UP VARIABLES-----
  192. 901 :  UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
  193. 902 :  UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:[151]50003,0
  194. 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  195. 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024
  196. 905 :  UD$[178]""
  197. 906 :  UP$[178]"                                       "
  198. 907 :  UT$[178]" LEN(null)(null)(null)(null)(null)VAL(null)CLOSELEN(null)(null)LENVAL(null)(null)(null)CLOSE":[143] PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!***
  199. 908 :  [142]
  200. 910 [143]-----SET VARIABLES-----
  201. 915 :  [141]900
  202. 917 :
  203. 920 [143]-----CHECK FOR 8032-----
  204. 925 :  [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  205. 930 :  [139][194](UB[170]40)[179][177]96[167][141]700
  206. 931 [143]-----MEMORY CHECK-----
  207. 932 :  [139] [184](0)[177]2000[167]937
  208. 933 :  [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  209. 934 :  [153]"MEMORY TO RUN THIS PROGRAM !"
  210. 935 :  [158]UU[170]71
  211. 936 :  [128]
  212. 937 :  [153]"LOAD":[139][194](50003)[178]0[167]962
  213. 940 [143]-----BASIC 2.0  OR  4.0  OR  C-64 SETUP-----
  214. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  215. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  216. 943 [151]1104,145:[151]1105,234:[151]1082,234
  217. 945 :  [139][194](50003)[179][177]160[167]955
  218. 950 :  [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  219. 955 :  [139][194](50003)[179][177]1[167]990
  220. 960 :  [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  221. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  222. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  223. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  224. 965 :  [158]UU[170]48:[143] DISABLE STOP KEY
  225. 970 :  [141]800:[143] TITLE
  226. 980 :  [137]300:[143] MENU
  227. 990 :  [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  228. 1000 : [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143]-----PROGRAM STARTS HERE-----
  229. 1001 [153]"LOAD";:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  230. 1010 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  231. 1020 [143]"(null)   LENOMPUTER LENONCEPTS (null)WO   (null)"
  232. 1030 [143]"(null)   WRITTEN BY (null). (null)INNING   (null)"
  233. 1040 [143]"(null)   FOR (null)HERIDAN LENOLLEGE    (null)"
  234. 1050 [143]"(null)        11.12.79           (null)"
  235. 1060 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  236. 1070 [153]"LOAD":[151]UT,UL%  
  237. 1130 [131]"RIGHT$NPUT VALUE ATN","RIGHT$NPUT VALUE PEEK","RIGHT$NPUT VALUE LEN"
  238. 1140 [131]"(null)ALUE STR$ = 0","ATNDD ATN TO STR$","ATNDD PEEK TO STR$"
  239. 1150 [131]"ATNDD LEN TO STR$","(null)UTPUT STR$"
  240. 1170 [140]:[129]J[178]1[164]8:[135]S$(J):[130]J
  241. 1180 DN$[178]""
  242. 1190 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  243. 1200 [143]"(null)      WHAT IS MEMORY       (null)"
  244. 1210 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  245. 1220 [153]"LOAD"[163]12)"(null)HAT IS (null)EMORY?":[153][163]12)"TAB(TAB(TAB(TAB( TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  246. 1230 [153]"(null)EMORY IS USED TO STORE THE DATA"
  247. 1240 [153]"NEEDED TO MAKE THE COMPUTER RUN. (null)HERE"
  248. 1250 [153]"ARE TWO KINDS OF MEMORY:"
  249. 1260 [153]" 1. (null)(null)(null) ((null)EAD (null)NLY (null)EMORY)"
  250. 1270 [153]"(null)HIS IS USED BY THE COMPUTER ONLY,"
  251. 1280 [153]"SO WE NEEDN'T WORRY ABOUT IT."
  252. 1290 [153]" 2. (null)ATN(null) ((null)ANDOM ATNCCESS (null)EMORY)"
  253. 1300 [153]"(null)HIS IS WHAT WE USE WHEN WE WRITE"
  254. 1310 [153]"OR ACCESS PROGRAMS."
  255. 1320 [141]835
  256. 1330 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  257. 1340 [143]"(null)            (null)ATN(null)            (null)"
  258. 1350 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  259. 1360 [153]"LOAD"[163]9)"(null)ANDOM ATNCCESS (null)EMORY":[153][163]9)"TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB("
  260. 1370 [153]"(null)ATN(null)CLOSECAN BE USED IN A VARIETY OF WAYS."
  261. 1380 [153]"(null)HE TWO MOST COMMON ARE THE STORAGE OF"
  262. 1390 [153]"PROGRAMS, AND THE STORAGE OF THE"
  263. 1400 [153]"VARIABLE VALUES THEY USE."
  264. 1410 [153]"(null)ET'S PROCEED AND SEE HOW THIS IS"
  265. 1420 [153]"DONE.":[141]835
  266. 1430 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  267. 1440 [143]"(null)    VARIABLES EXPLAINED    (null)"
  268. 1450 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  269. 1460 [153]"LOAD"[163]15)"(null)ARIABLES":[153][163]15)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  270. 1470 [153]"ATN VARIABLE IS A NUMERIC OR ALPHABETIC"
  271. 1480 [153]"VALUE WHICH HAS BEEN GIVEN A NAME TO"
  272. 1490 [153]"IDENTIFY IT."
  273. 1500 [153]"RIGHT$N THE FOLLOWING EXAMPLE, STATEMENTS"
  274. 1510 [153]"LIKE 'INPUT VALUE PEEK' WILL APPEAR."
  275. 1520 [153]"'PEEK' IS A VARIABLE, AND THE STATEMENT"
  276. 1530 [153]"IS ASKING YOU TO GIVE 'PEEK' A VALUE."
  277. 1540 [141]835
  278. 1550 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  279. 1560 [143]"(null)  DISPLAY PROGRAM MEMORY   (null)"
  280. 1570 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  281. 1580 [153]"LOAD(null)HEN A PROGRAM IS ENTERED (READ) INTO"
  282. 1590 [153]"MEMORY, IT HAPPENS MUCH LIKE THIS:"
  283. 1600 [153]"(null)ROGRAM (null)EMORY"
  284. 1610 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  285. 1620 [129]J[178]1[164]7:[153]"(null)":[153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[130]J
  286. 1630 [153]"(null)":[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  287. 1640 DN[178]6:[129]J[178]1[164]8:[153]DN$[163]26)S$(J):[129]K1[178]1[164]200:[130]K1
  288. 1650 [129]K[178]25[164]19[169][171]1:[153]DN$[163]K)S$(J)" ":[130]K
  289. 1660 [129]K[178]23[164]DN[169][171]1
  290. 1670 [153][200](DN$,K[170]1)[163]19)"             ":[153][200](DN$,K)[163]19)S$(J)
  291. 1680 [129]K1[178]1[164]25:[130]K1:[130]K
  292. 1690 [129]K[178]18[164]1[169][171]1:[153][200](DN$,DN)[163]K)S$(J)" ":[130]K
  293. 1700 [129]K[178]23[164]DN[169][171]1
  294. 1710 DN[178]DN[170]2:[130]J
  295. 1720 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  296. 1730 [143]"(null)  DISPLAY VARIABLE MEMORY  (null)"
  297. 1740 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  298. 1750 [141]2500:[153]"(null)OW, WE EXECUTE (RUN) THE PROGRAM."
  299. 1760 [153]"(null)ATCH HOW THE VARIABLE MEMORY IS USED:"
  300. 1770 [153][163]24)"(null)ARIABLE (null)EMORY"
  301. 1780 [153][163]33)"TANTANTANTANTAN^"
  302. 1790 [129]J[178]1[164]4:[153][163]38)"(null)":[153][163]33)"TANTANTANTANTAN<":[130]J
  303. 1800 [153][163]38)"(null)":[153][163]33)"TANTANTANTANTANEXP"
  304. 1810 DN[178]6:[129]J[178]1[164]3
  305. 1820 [153][200](DN$,DN)[163]17)"_TAN   (0-9)CMDCMDCMDCMDCMDCMDCMD";
  306. 1830 US$[178]"0123456789":UL[178]1:[141]35:XX$[178]UR$
  307. 1850 [129]K[178]20[164]35:[153][200](DN$,DN)[163]K)" "XX$:[129]K1[178]1[164]25:[130]K1:[130]K
  308. 1860 [145]J[137]1870,1880,1890
  309. 1870 A$[178]XX$:A[178][197](A$):XX$[178]"ATN":[137]1900
  310. 1880 B$[178]XX$:B[178][197](B$):XX$[178]"PEEK":[137]1900
  311. 1890 C$[178]XX$:C[178][197](C$):XX$[178]"LEN"
  312. 1900 [153][200](DN$,DN)[163]38)""XX$
  313. 1910 [153][200](DN$,DN)[163]17)"    ":DN[178]DN[170]2:[130]J
  314. 1920 [153][200](DN$,DN)[163]17)"_TAN 0":[129]K1[178]1[164]1000:[130]K1
  315. 1930 [129]K[178]20[164]35:[153][200](DN$,DN)[163]K)" 0":[129]K1[178]1[164]25:[130]K1:[130]K
  316. 1940 [153][200](DN$,DN)[163]38)"STR$"
  317. 1950 [153][200](DN$,DN)[163]17)"  ":DN[178]DN[170]2
  318. 1960 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  319. 1970 [143]"(null)    DISPLAY CALCULATIONS   (null)"
  320. 1980 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  321. 1990 D[178]0:D2[178]6:[129]J[178]1[164]3
  322. 2000 [153][200](DN$,DN)[163]17)"_TAN":[129]K1[178]1[164]1000:[130]K1
  323. 2010 [145]J[137]2020,2030,2040
  324. 2020 XX$[178]A$:D[178]D[170]A:[137]2050
  325. 2030 XX$[178]B$:D[178]D[170]B:[137]2050
  326. 2040 XX$[178]C$:D[178]D[170]C
  327. 2050 D$[178][201]([196](D),[195]([196](D))[171]1)
  328. 2060 [153][200](DN$,D2)[163]34)XX$
  329. 2070 [129]K[178]33[164]30[169][171]1:[153][200](DN$,D2)[163]K)XX$" ":[129]K1[178]1[164]25:[130]K1:[130]K
  330. 2080 [129]K[178]D2[170]1[164]12
  331. 2090 [153][200](DN$,K[171]1)[163]30)" ":[153][200](DN$,K)[163]30)XX$
  332. 2100 [129]K1[178]1[164]50:[130]K1:[130]K
  333. 2110 [129]K[178]30[164]35:[153][200](DN$,12)[163]K)" "XX$:[129]K1[178]1[164]25:[130]K1:[130]K
  334. 2120 [153][200](DN$,12)[163]36)D$
  335. 2130 [153][200](DN$,DN)[163]17)"    ":DN[178]DN[170]2:D2[178]D2[170]2:[130]J
  336. 2140 [153][200](DN$,DN)[163]17)"_TAN":[129]K1[178]1[164]1000:[130]K1
  337. 2150 [153][200](DN$,12)[163]34)D$
  338. 2160 [129]K[178]33[164]30[169][171]1:[153][200](DN$,12)[163]K)D$" ":[129]K1[178]1[164]25:[130]K1:[130]K
  339. 2170 [129]K[178]13[164]DN
  340. 2180 [153][200](DN$,K[171]1)[163]30)"  ":[153][200](DN$,K)[163]30)D$
  341. 2190 [129]K1[178]1[164]50:[130]K1:[130]K
  342. 2200 [153][200](DN$,DN)[163]17)"  "
  343. 2210 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  344. 2220 [143]"(null)       RETURN CHOICE       (null)"
  345. 2230 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  346. 2240 [129]K[178]1[164]5
  347. 2250 [153][200](DN$,DN)[163]30)""D$:[129]K1[178]1[164]200:[130]K1
  348. 2260 [153][200](DN$,DN)[163]30)D$:[129]K1[178]1[164]200:[130]K1:[130]K
  349. 2270 [141]835
  350. 2280 [153]"LOAD"[200](UD$,13)"   (null)OULD YOU LIKE TO SEE IT AGAIN?
  351. 2290 PRINT"(Y/N) ";:US$="YN":UL=1:GOSUB35:IFUR$="Y"THEN1550
  352. 2300 RETURN
  353. 2500 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  354. 2510 REM"[221]   CLEAR TOP OF SCREEN    [221]"
  355. 2520 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  356. 2530 PRINT"";:FORJ0=1TO2
  357. 2540 FORK0=1TO39:PRINT" ";:NEXTK0:PRINT
  358. 2550 NEXTJ0:RETURN
  359.